home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2008 February / PCWFEB08.iso / Software / Resources / Utilities / ReNamer 4.10 / ReNamer.exe / {app} / Scripts / Import DLL functions.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2006-04-28  |  234 b   |  10 lines
  1. function GetTickCount: Longint;
  2.   external 'GetTickCount@kernel32.dll stdcall';
  3.  
  4. procedure Sleep(Milliseconds: Cardinal);
  5.   external 'Sleep@kernel32.dll stdcall';
  6.  
  7. begin
  8.   FileName := IntToStr(GetTickCount);
  9.   Sleep(10);
  10. end.